home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
v8n22.arc
/
JUMP.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1989-11-28
|
595b
|
34 lines
JUMP.PAS
{ Non - local Goto for Turbo Pascal 4.0 }
UNIT Jump;
INTERFACE
TYPE
JmpBuf = RECORD
SP : Word;
SS : Word;
CS : Word;
IP : Word;
BP : Word;
DS : Word;
END;
{ Save current context and return a code of 0 }
FUNCTION SetJmp(VAR X : JmpBuf) : Integer;
{ Restore context and return the given code }
PROCEDURE LongJmp(VAR X : JmpBuf; RetValue : Integer);
IMPLEMENTATION
FUNCTION SetJmp; EXTERNAL;
PROCEDURE LongJmp; EXTERNAL;
{$L SETJMP.OBJ }
END.